﻿Public Class Player

    Private Id As Integer

    Public Color As Integer

    Public TeamId As Integer

    Public Name As String

    Public HQ As City

    Public CO As Commander

    Public Army As List(Of Unit)

    Public Cities As List(Of City)

    Property Funds As Integer

    Sub New(ByVal Id As Integer, ByVal Color As Integer)
        Me.Id = Id
        Me.Color = Color

    End Sub



End Class
